(defun set-key-bindings (action bindingList)
  ""
  (mapcar (lambda(lst)
      ""
      (let ((x (car lst))
        (y (car (last lst))))
        (funcall action x y))) bindingList ))


(set-key-bindings 'global-set-key
		  (list
		   (list (kbd "C-z")  'undo)
		   (list (kbd "C-x C-b") 'ibuffer);ibuffer
		   ))